home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / progtool / modula2 / module / preiserf.def < prev    next >
Text File  |  1995-11-25  |  2KB  |  53 lines
  1. (******************************************************************************)
  2. (*      This MODULE is Public Domain. Copy me like a beast!                   *)
  3. (*               Christian Ledermann                                          *)
  4. (*               Wölfelkofen 2                                                *)
  5. (*               84166 Adlkofen                                               *)
  6. (******************************************************************************)
  7. (*                                                                            *)
  8. (* Started:   20.12.92     03:54:30                                           *)
  9. (* Version: 20.12.89   01:474:12:54                                           *)
  10. (*                                                                            *)
  11. (******************************************************************************)
  12. (*                                                                            *)
  13. (* Diese Software ist ohne jede Garantie. Ich verspreche                      *)
  14. (* keinerlei Wartung und übernehme keine Verantwortung für Schäden die        *)
  15. (* durch die Benutzung dieses Programmes entstehen.                           *)
  16. (* Jegliche Ersatzansprüche lehne ich ab.                                     *)
  17. (*                                                                            *)
  18. (******************************************************************************)
  19. DEFINITION MODULE PreisErfassung;
  20. FROM BlRscInc IMPORT EKB1,EKL7;
  21. TYPE
  22.       GTString = ARRAY [0..15] OF CHAR;
  23.  
  24.        EKPreis = RECORD TreeIndex         : INTEGER;
  25.                         Getraenk          : GTString;
  26.                         Preis,
  27.                         FlaschenProKasten : INTEGER;
  28.                         NeuBezogeneKaesten,
  29.                         ZuBezahlendeKaesten,
  30.                         KaestenGes        : INTEGER;
  31.                  END(*RECORD*);
  32.  
  33.  
  34. VAR VerkaufsPreis : RECORD  BierPreis , LimoPreis :INTEGER;
  35.                     END(*RECORD*);
  36.  
  37.          DD,MM,JJ    : ARRAY [0..2] OF CHAR;
  38.        EinKaufsPreis : ARRAY[EKB1..EKL7] OF  EKPreis;
  39.  
  40.  
  41. PROCEDURE GetDate():BOOLEAN;
  42. PROCEDURE LoadPreise;
  43. PROCEDURE LoadOldPreise;
  44. PROCEDURE SavePreise;
  45.  
  46. PROCEDURE EinkaufsPreise;
  47. PROCEDURE VerkaufsPreise;
  48.  
  49. PROCEDURE SetPreferences( Ordnen,LeerZeilen:INTEGER);
  50. PROCEDURE GetPreferences(VAR  Ordnen,LeerZeilen:INTEGER):BOOLEAN;
  51.  
  52. END PreisErfassung.
  53.